﻿Public Class FListItem
    '用于填充下拉列表框的自定义类
    Private mDisplayText As String
    Private mInnerValue As String
    Private mTag As Integer

    Sub New(ByVal Text As String, ByVal Value As String)
        Me.DisplayText = Text
        Me.InnerValue = Value
    End Sub

    Sub New()
        Me.DisplayText = ""
        Me.InnerValue = ""
    End Sub

    ''' 

    ''' 显示文本
    ''' 
    ''' 可用于在下拉列表框项的显示值
    Public Property DisplayText() As String
        Get
            Return mDisplayText
        End Get
        Set(ByVal value As String)
            mDisplayText = value
        End Set
    End Property

    ''' 
    ''' 内部值
    ''' 
    ''' 可用于下拉列表框项的内部值

    Public Property InnerValue() As String
        Get
            Return mInnerValue
        End Get
        Set(ByVal value As String)
            mInnerValue = value
        End Set
    End Property

    ''' 
    ''' 附加数据
    ''' 
    Public Property Tag() As Integer
        Get
            Return mTag
        End Get
        Set(ByVal value As Integer)
            mTag = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        ' Return MyBase.ToString()
        Return mDisplayText

    End Function


End Class

